home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 25
/
025.d81
/
dragon boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
390b
|
11 lines
1 rem dragon.start
5 ifx=0thenx=1:load"unpacker",8,1
6 ifx=1thenx=2:load"dragon.shp",8,1
10 poke249,224:poke250,204: rem screen/color
20 poke251,0:poke252,64: rem shp buffer
30 poke253,0:poke254,0: rem x-pos,y-pos
50 sys51456:sys51459:rem unpack and show normal shp
55 pg$="dragon dungeon"
60 print"[147]load pg$,8":print"sys51459:run"
70 poke631,13:poke632,13:poke198,2:end